home *** CD-ROM | disk | FTP | other *** search
- /* SpheresWrap.c generated from SpheresWrap.psw
- by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
- */
-
- #include <dpsclient/dpsfriends.h>
- #include <string.h>
-
- #line 1 "SpheresWrap.psw"
- #line 10 "SpheresWrap.c"
- void drawSphereBW(color, radius, dcolor, dx, dy, maxsize)
- float color; int radius; float dcolor; float dx; float dy; int maxsize;
- {
- typedef struct {
- unsigned char tokenType;
- unsigned char topLevelCount;
- unsigned short nBytes;
-
- DPSBinObjReal obj0;
- DPSBinObjGeneric obj1;
- DPSBinObjReal obj2;
- DPSBinObjGeneric obj3;
- DPSBinObjGeneric obj4;
- DPSBinObjGeneric obj5;
- DPSBinObjGeneric obj6;
- DPSBinObjGeneric obj7;
- DPSBinObjGeneric obj8;
- DPSBinObjGeneric obj9;
- DPSBinObjGeneric obj10;
- DPSBinObjGeneric obj11;
- DPSBinObjGeneric obj12;
- DPSBinObjGeneric obj13;
- DPSBinObjGeneric obj14;
- DPSBinObjGeneric obj15;
- DPSBinObjGeneric obj16;
- DPSBinObjGeneric obj17;
- DPSBinObjGeneric obj18;
- DPSBinObjGeneric obj19;
- DPSBinObjReal obj20;
- DPSBinObjGeneric obj21;
- DPSBinObjGeneric obj22;
- DPSBinObjGeneric obj23;
- DPSBinObjGeneric obj24;
- DPSBinObjGeneric obj25;
- DPSBinObjGeneric obj26;
- DPSBinObjGeneric obj27;
- DPSBinObjGeneric obj28;
- DPSBinObjGeneric obj29;
- DPSBinObjGeneric obj30;
- DPSBinObjGeneric obj31;
- DPSBinObjGeneric obj32;
- DPSBinObjGeneric obj33;
- DPSBinObjGeneric obj34;
- DPSBinObjGeneric obj35;
- DPSBinObjGeneric obj36;
- DPSBinObjGeneric obj37;
- DPSBinObjGeneric obj38;
- DPSBinObjGeneric obj39;
- DPSBinObjGeneric obj40;
- DPSBinObjGeneric obj41;
- DPSBinObjReal obj42;
- DPSBinObjGeneric obj43;
- DPSBinObjGeneric obj44;
- DPSBinObjGeneric obj45;
- DPSBinObjGeneric obj46;
- DPSBinObjReal obj47;
- DPSBinObjGeneric obj48;
- DPSBinObjGeneric obj49;
- DPSBinObjGeneric obj50;
- DPSBinObjGeneric obj51;
- DPSBinObjReal obj52;
- DPSBinObjGeneric obj53;
- DPSBinObjGeneric obj54;
- char obj55[8];
- char obj56[5];
- char obj57[5];
- char obj58[8];
- } _dpsQ;
- static _dpsQ _dpsF = {
- DPS_DEF_TOKENTYPE, 28, 470,
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: color */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
- {DPS_LITERAL|DPS_REAL, 0, 0, 1.0},
- {DPS_EXEC|DPS_NAME, 0, 8, 458}, /* setalpha */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: radius */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 360},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 20}, /* clip */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {DPS_LITERAL|DPS_NAME, 0, 5, 453}, /* currX */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 5, 448}, /* currY */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 8, 440}, /* curColor */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: color */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: radius */
- {DPS_LITERAL|DPS_INT, 0, 0, -1},
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_EXEC|DPS_ARRAY, 0, 27, 224},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 72}, /* for */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 308}, /* initclip */
- {DPS_LITERAL|DPS_NAME, 0, DPSSYSNAME, 410}, /* i */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 62}, /* exch */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_EXEC|DPS_NAME, 0, 8, 440}, /* curColor */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
- {DPS_EXEC|DPS_NAME, 0, 5, 453}, /* currX */
- {DPS_EXEC|DPS_NAME, 0, 5, 448}, /* currY */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 410}, /* i */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 360},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
- {DPS_LITERAL|DPS_NAME, 0, 5, 453}, /* currX */
- {DPS_EXEC|DPS_NAME, 0, 5, 453}, /* currX */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dx */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 5, 448}, /* currY */
- {DPS_EXEC|DPS_NAME, 0, 5, 448}, /* currY */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dy */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 8, 440}, /* curColor */
- {DPS_EXEC|DPS_NAME, 0, 8, 440}, /* curColor */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dcolor */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {'c','u','r','C','o','l','o','r'},
- {'c','u','r','r','Y'},
- {'c','u','r','r','X'},
- {'s','e','t','a','l','p','h','a'},
- }; /* _dpsQ */
- register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
- char pad[3];
- register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
-
- _dpsP[0].val.realVal =
- _dpsP[20].val.realVal = color;
- _dpsP[6].val.integerVal =
- _dpsP[22].val.integerVal = radius;
- _dpsP[52].val.realVal = dcolor;
- _dpsP[42].val.realVal = dx;
- _dpsP[47].val.realVal = dy;
- _dpsP[4].val.integerVal =
- _dpsP[5].val.integerVal =
- _dpsP[14].val.integerVal =
- _dpsP[17].val.integerVal = maxsize;
- DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,470);
- if (0) *pad = 0; /* quiets compiler warnings */
- }
- #line 22 "SpheresWrap.psw"
-
- #line 161 "SpheresWrap.c"
- void drawSphereCL(red, green, blue, radius, dred, dgreen, dblue, dx, dy, maxsize)
- float red; float green; float blue; int radius; float dred; float dgreen; float dblue; float dx; float dy; int maxsize;
- {
- typedef struct {
- unsigned char tokenType;
- unsigned char topLevelCount;
- unsigned short nBytes;
-
- DPSBinObjReal obj0;
- DPSBinObjReal obj1;
- DPSBinObjReal obj2;
- DPSBinObjGeneric obj3;
- DPSBinObjReal obj4;
- DPSBinObjGeneric obj5;
- DPSBinObjGeneric obj6;
- DPSBinObjGeneric obj7;
- DPSBinObjGeneric obj8;
- DPSBinObjGeneric obj9;
- DPSBinObjGeneric obj10;
- DPSBinObjGeneric obj11;
- DPSBinObjGeneric obj12;
- DPSBinObjGeneric obj13;
- DPSBinObjGeneric obj14;
- DPSBinObjGeneric obj15;
- DPSBinObjGeneric obj16;
- DPSBinObjGeneric obj17;
- DPSBinObjGeneric obj18;
- DPSBinObjGeneric obj19;
- DPSBinObjGeneric obj20;
- DPSBinObjGeneric obj21;
- DPSBinObjReal obj22;
- DPSBinObjGeneric obj23;
- DPSBinObjGeneric obj24;
- DPSBinObjReal obj25;
- DPSBinObjGeneric obj26;
- DPSBinObjGeneric obj27;
- DPSBinObjReal obj28;
- DPSBinObjGeneric obj29;
- DPSBinObjGeneric obj30;
- DPSBinObjGeneric obj31;
- DPSBinObjGeneric obj32;
- DPSBinObjGeneric obj33;
- DPSBinObjGeneric obj34;
- DPSBinObjGeneric obj35;
- DPSBinObjGeneric obj36;
- DPSBinObjGeneric obj37;
- DPSBinObjGeneric obj38;
- DPSBinObjGeneric obj39;
- DPSBinObjGeneric obj40;
- DPSBinObjGeneric obj41;
- DPSBinObjGeneric obj42;
- DPSBinObjGeneric obj43;
- DPSBinObjGeneric obj44;
- DPSBinObjGeneric obj45;
- DPSBinObjGeneric obj46;
- DPSBinObjGeneric obj47;
- DPSBinObjGeneric obj48;
- DPSBinObjGeneric obj49;
- DPSBinObjGeneric obj50;
- DPSBinObjGeneric obj51;
- DPSBinObjReal obj52;
- DPSBinObjGeneric obj53;
- DPSBinObjGeneric obj54;
- DPSBinObjGeneric obj55;
- DPSBinObjGeneric obj56;
- DPSBinObjReal obj57;
- DPSBinObjGeneric obj58;
- DPSBinObjGeneric obj59;
- DPSBinObjGeneric obj60;
- DPSBinObjGeneric obj61;
- DPSBinObjReal obj62;
- DPSBinObjGeneric obj63;
- DPSBinObjGeneric obj64;
- DPSBinObjGeneric obj65;
- DPSBinObjGeneric obj66;
- DPSBinObjReal obj67;
- DPSBinObjGeneric obj68;
- DPSBinObjGeneric obj69;
- DPSBinObjGeneric obj70;
- DPSBinObjGeneric obj71;
- DPSBinObjReal obj72;
- DPSBinObjGeneric obj73;
- DPSBinObjGeneric obj74;
- char obj75[4];
- char obj76[4];
- char obj77[4];
- char obj78[5];
- char obj79[5];
- char obj80[8];
- } _dpsQ;
- static _dpsQ _dpsF = {
- DPS_DEF_TOKENTYPE, 36, 634,
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: red */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: green */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: blue */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 157}, /* setrgbcolor */
- {DPS_LITERAL|DPS_REAL, 0, 0, 1.0},
- {DPS_EXEC|DPS_NAME, 0, 8, 622}, /* setalpha */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: radius */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 360},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 20}, /* clip */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {DPS_LITERAL|DPS_NAME, 0, 5, 617}, /* currX */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 5, 612}, /* currY */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: maxsize */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 4, 608}, /* curR */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: red */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 4, 604}, /* curG */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: green */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 4, 600}, /* curB */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: blue */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: radius */
- {DPS_LITERAL|DPS_INT, 0, 0, -1},
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_EXEC|DPS_ARRAY, 0, 39, 288},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 72}, /* for */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 308}, /* initclip */
- {DPS_LITERAL|DPS_NAME, 0, DPSSYSNAME, 410}, /* i */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 62}, /* exch */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_EXEC|DPS_NAME, 0, 4, 608}, /* curR */
- {DPS_EXEC|DPS_NAME, 0, 4, 604}, /* curG */
- {DPS_EXEC|DPS_NAME, 0, 4, 600}, /* curB */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 157}, /* setrgbcolor */
- {DPS_EXEC|DPS_NAME, 0, 5, 617}, /* currX */
- {DPS_EXEC|DPS_NAME, 0, 5, 612}, /* currY */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 410}, /* i */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 360},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
- {DPS_LITERAL|DPS_NAME, 0, 5, 617}, /* currX */
- {DPS_EXEC|DPS_NAME, 0, 5, 617}, /* currX */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dx */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 5, 612}, /* currY */
- {DPS_EXEC|DPS_NAME, 0, 5, 612}, /* currY */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dy */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 4, 608}, /* curR */
- {DPS_EXEC|DPS_NAME, 0, 4, 608}, /* curR */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dred */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 4, 604}, /* curG */
- {DPS_EXEC|DPS_NAME, 0, 4, 604}, /* curG */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dgreen */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {DPS_LITERAL|DPS_NAME, 0, 4, 600}, /* curB */
- {DPS_EXEC|DPS_NAME, 0, 4, 600}, /* curB */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dblue */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
- {'c','u','r','B'},
- {'c','u','r','G'},
- {'c','u','r','R'},
- {'c','u','r','r','Y'},
- {'c','u','r','r','X'},
- {'s','e','t','a','l','p','h','a'},
- }; /* _dpsQ */
- register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
- char pad[3];
- register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
-
- _dpsP[0].val.realVal =
- _dpsP[22].val.realVal = red;
- _dpsP[1].val.realVal =
- _dpsP[25].val.realVal = green;
- _dpsP[2].val.realVal =
- _dpsP[28].val.realVal = blue;
- _dpsP[8].val.integerVal =
- _dpsP[30].val.integerVal = radius;
- _dpsP[62].val.realVal = dred;
- _dpsP[67].val.realVal = dgreen;
- _dpsP[72].val.realVal = dblue;
- _dpsP[52].val.realVal = dx;
- _dpsP[57].val.realVal = dy;
- _dpsP[6].val.integerVal =
- _dpsP[7].val.integerVal =
- _dpsP[16].val.integerVal =
- _dpsP[19].val.integerVal = maxsize;
- DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,634);
- if (0) *pad = 0; /* quiets compiler warnings */
- }
- #line 51 "SpheresWrap.psw"
-
-